home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
dspdep.arc
/
CPP1731.DSP
< prev
next >
Wrap
Text File
|
1991-12-04
|
6KB
|
110 lines
**************************************
* *
* Display file - CPP1731 *
* Display data base dependencies *
* *
* (c) Copyright 1984 by Q38 *
* *
**************************************
A REF(QADSPDBR)
A INDARA
A PRINT
*
A R CPP1731D SFL CHGINPDFT
A OPT 1A I 10 3
A 41 DSPATR(PR)
A N41 DSPATR(UL)
A WHREFI R B 10 5CHANGE(61 'MDT on File name')
A CHECK(VN)
A N41 DSPATR(UL)
A 41 DSPATR(PR)
A WHRELI R O 10 16TEXT('Dependent library')
A WHREMB R B 10 27CHANGE(62 'MDT on Member name')
A CHECK(VN)
A N42N65 DSPATR(UL)
A 42
AO 42 DSPATR(PR)
A TYPE 12A O 10 39
A OLDFIL R H REFFLD(WHREFI)
A OLDMBR R H REFFLD(WHREMB)
A R CPP1731C SFLCTL(CPP1731D)
A SFLSIZ(0014)
A SFLPAG(0012)
A 21 SFLDSP
A 21 SFLDSPCTL
A N21 SFLCLR
A N99 SFLEND
A PUTOVR
A OVERLAY
A CA01(01 'Exit program')
A CA06(06 'Nullify')
A HOME(06)
A 1 3DATE
A EDTCDE(Y)
A 1 12TIME
A 1 28'Q38''s File reference display'
A 1 72'CPP1731'
A 2 29'Data base file relations'
A 3 3'Command'
A 4 3'Parameters:'
A FILE 10A O 4 16DSPATR(HI)
A 05 OVRDTA
A LIBR 10A O 4 27DSPATR(HI)
A 05 OVRDTA
A MBR 10A O 4 38DSPATR(HI)
A 05 OVRDTA
A RCDFMT 10A O 4 49DSPATR(HI)
A 05 OVRDTA
A 5 40'Record Format'
A 6 5'File'
A 6 16'Library'
A 6 27'Member'
A 6 38'Name'
A 6 49'Count'
A WHRFI R O 7 5DSPATR(HI)
A 05 OVRDTA
A TEXT('File')
A WHRLI R O 7 16DSPATR(HI)
A 05 OVRDTA
A TEXT('Library')
A WHRMB R O 7 27DSPATR(HI)
A 05 OVRDTA
A TEXT('Member')
A WHRRD R O 7 38DSPATR(HI)
A 05 OVRDTA
A TEXT('Record format')
A WHNO R O 7 49EDTCDE(Z)
A DSPATR(HI)
A 05 OVRDTA
A TEXT('Dependent count')
A 8 5'----------- Dependent ----------'
A DSPATR(HI)
A 8 39'Type of'
A 9 5'File'
A DSPATR(HI)
A 9 16'Library'
A N65 9 27'Member'
A DSPATR(HI)
A INDTXT(65 'MBR(*NONE) specified')
A 9 39'Sharing'
A DSPATR(UL)
A R CPP1731B OVERLAY
A 23 9'CMD 1 - End'
A DSPATR(HI)
A 23 25'CMD 5 - Next file'
A DSPATR(HI)
A 22 5'1 - DspRcdFmt 4 - DspObjAut +
A 8 - Remove Mbr 9 - Delete File'
A DSPATR(HI)
A R MSGRCD TEXT('PgmMsgQ subfile record.')
A SFL SFLMSGRCD(24)
A MSGKEY SFLMSGKEY
A PGMSGQ SFLPGMQ
A R MSGCTL TEXT('PgmMsgQ subfile control')
A OVERLAY
A SFLCTL(MSGRCD)
A SFLDSPCTL SFLDSP SFLINZ
A SFLPAG(1) SFLSIZ(2)
A N99 SFLEND
A PGMSGQ SFLPGMQ